home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / CC32.ZIP / EDIT_STR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-12  |  943 b   |  47 lines
  1. { Component Create for Delphi }
  2. { Sample form for property editor - String data type }
  3.  
  4. unit Edit_str;
  5.  
  6. interface
  7.  
  8. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  9.   StdCtrls, ExtCtrls, Mask;
  10.  
  11. type
  12.   TStringPropDlg = class(TForm)
  13.     OKBtn: TBitBtn;
  14.     CancelBtn: TBitBtn;
  15.     Bevel1: TBevel;
  16.     MaskEdit1: TMaskEdit;
  17.     procedure FormActivate(Sender: TObject);
  18.     procedure OKBtnClick(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.       { Transfer buffer for property's value }
  24.       Value : String;
  25.   end;
  26.  
  27. var
  28.   StringPropDlg: TStringPropDlg;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33.  
  34. procedure TStringPropDlg.FormActivate(Sender: TObject);
  35. begin
  36.      MaskEdit1.Text := Value;
  37.      MaskEdit1.SelectAll
  38. end;
  39.  
  40. procedure TStringPropDlg.OKBtnClick(Sender: TObject);
  41. begin
  42.      Value := MaskEdit1.Text;
  43.      ModalResult := mrOK
  44. end;
  45.  
  46. end.
  47.